;;; Eds-theme.el --- A dark theme with contrasting colours.

;; Author: Matt Russell <matthew.russell@horizon5.org>
;; Version: 0.3
;; Package-Version: 20151007.408
;; Filename: Eds-theme.el
;; Package-Requires: ((emacs "24"))
;; Keywords: theme, dark, contrasting colours
;; URL: https://github.com/mgrbyte/emacs-Eds-theme

;;; Commentary:

;; A dark theme with contrasting colours for Emacs24 based on the
;; ``Lush`` theme by Andre Richter, using the same colours palette
;; as the the built-in `dichromacy' theme; intended to be suitable
;; for red/green colour blind users.

;;; Code:

(deftheme Eds-theme
  "Dark background and contrasting colours, editted slightly.")

(let* ((Eds/orange "#e69f00")
       (Eds/skyblue "#56b4e9")
       (Eds/bluegreen "#009e73")
       (Eds/yellow "#f8ec59")
       (Eds/vanilla-cream "#fcfbe3")
       (Eds/blue "#0072b2")
       (Eds/vermillion "#d55e00")
       (Eds/redpurple "#cc79a7")
       (Eds/scarlet "#FF1A00")
       (Eds/bluegray "#848ea9")
       (Eds/background "#050000")
       (Eds/background2 "#0d1000")
       (Eds/foreground "#bbe0f0")
       (Eds/modelinebg "#191919")
       (Eds/modelinefg "#ffffff")
       (Eds/hlstuff "#4E9A06")
       (Eds/hl-line "#00f000"))
  (custom-theme-set-faces
   `Eds
   `(bold ((t (:bold t))))
   `(bold-italic ((t (:bold t))))
   `(border-glyph ((t (nil))))
   `(default
      ((t (:foreground ,Eds/foreground :background ,Eds/background))))
   `(fringe ((t (:background ,Eds/background2))))
   `(buffers-tab
     ((t (:foreground ,Eds/foreground :background ,Eds/background))))
   `(font-lock-builtin-face ((t (:foreground ,Eds/vanilla-cream))))
   `(font-lock-comment-face ((t (:foreground ,Eds/vermillion :italic t))))
   `(font-lock-constant-face ((t (:foreground ,Eds/redpurple))))
   `(font-lock-doc-face ((t (:foreground ,Eds/orange))))
   `(font-lock-doc-string-face ((t (:foreground ,Eds/vermillion))))
   `(font-lock-string-face ((t (:foreground ,Eds/bluegreen))))
   `(font-lock-function-name-face ((t (:foreground ,Eds/skyblue))))
   `(font-lock-keyword-face ((t (:foreground ,Eds/yellow))))
   `(font-lock-preprocessor-face ((t (:foreground ,Eds/blue))))
   `(font-lock-type-face ((t (:foreground ,Eds/skyblue))))
   `(font-lock-variable-name-face ((t (:foreground ,Eds/bluegray))))
   `(font-lock-negation-char-face ((t (:foreground ,Eds/redpurple))))
   `(font-lock-warning-face ((t (:foreground ,Eds/scarlet :bold t))))
   `(gui-element
        ((t (:foreground ,Eds/background2 :background ,Eds/foreground))))
   `(mode-line
     ((t (:foreground ,Eds/modelinefg :background ,Eds/modelinebg :box nil))))
   `(mode-line-highlight
     ((t (:foreground ,Eds/vanilla-cream :box nil))))
   `(mode-line-inactive
     ((t (:foreground ,Eds/redpurple :background ,Eds/background2 :box nil))))
   `(text-cursor
        ((t (:foreground ,Eds/foreground :background ,Eds/background))))
   `(region
     ((t (:foreground ,Eds/background :background ,Eds/hlstuff))))
   `(italic ((t (nil))))
   `(left-margin ((t (nil))))
   `(toolbar ((t (nil))))
   `(magit-item-highlight ((t (:inherit region)))))
  `(underline ((nil (:underline nil)))))

;;;###autoload
(when load-file-name
  (add-to-list
   'custom-theme-load-path
   (file-name-as-directory (file-name-directory load-file-name))))

;;;###autoload
(defun Eds-theme()
  "Load Eds-theme."
  (interactive)
  (load-theme 'Eds-theme t))

(provide-theme 'Eds-theme)
;;; Eds-theme.el ends here
